<%@ LANGUAGE=vbscript %> <%response.buffer=true%> NETGAMES :: NG-Recensioni Videogames <% Set connection = Server.CreateObject("ADODB.Connection") Set disc = Server.CreateObject("ADODB.RecordSet") sel = request("doc") ' connection.open " DSN=db1" connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb") vero = cbool(1) falso = cbool(0) sql ="select * from game WHERE ID = " & sel disc.open sql,connection,3 %>
<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 1" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 2" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

 

 

" border="0" width="140" height="140">

Titolo gioco ><%= disc("titologame") %>
Piattaforma ><%= disc("piattaforma") %>
Genere gioco ><%= disc("genregioco") %>
 <% if (disc("pc")) then cic = "Numero giocatori >" & disc("numgioc") & "
" Response.write(cic) end if %> Data uscita ><%= disc("datauscita") %>

 <% if (disc("pc")) then pit = "Requisti minimi :
Processore >" & disc("processore") & "
" & " Ram > " & disc("ram") & "
" & _ "CdRom >" & disc("cdrom") & "
" & "Video >" & disc("video")& "
" & _ "Acc Video >" & disc("accellerata") & "
" & "Sistema operativo >" & disc("sistop") & "
" response.write(pit) end if %>


" border="0" width="225" height="170">

 " border="0" width="225" height="170">



<%= disc("testorec") %>


<% if (disc("testolink1") <> "*") then %>  <%= disc("testolink1")%>
 "><%= disc("link1")%>
<%end if%> <% if (disc("testolink2") <> "*") then %>  <%= disc("testolink2")%>
 "><%= disc("link2")%>
<%end if%> <% if (disc("testolink3") <> "*") then %>  <%= disc("testolink3")%>
 "><%= disc("link3")%>
<%end if%> <% if (disc("testolink4") <> "*") then %>  <%= disc("testolink4")%>
 "><%= disc("link4")%>
<%end if%>



PRO <%= disc("pro")%>
CONTRO <%= disc("contro")%>

Voto <%= disc("voto")%>

 

AUTORE
DATA

<%= disc("autorerec")%>
<%= disc("datarec")%>

<% connection.close %>